home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / os2 / htmlchk / mac / hcsinit.mac < prev    next >
Text File  |  1996-02-21  |  1KB  |  24 lines
  1. /*---------------------------------------------------------------------------*/
  2. /*                                                                           */
  3. /*  hcsInit - This REXX Macro is called when the report is first called      */
  4. /*           This is where you can set up your  Header and such              */
  5. /*                                                                           */
  6. /*  Valid Variables are:                                                     */
  7. /*      hcReportName    hcReportDescription     hcServerURL                  */
  8. /*      hcServerRoot    hcDocumentRoot          hcTopHTML                    */
  9. /*                                                                           */
  10. /*                                                                           */
  11. /*---------------------------------------------------------------------------*/
  12.  
  13.   Call RxhcLineOut COPIES('-', 78)
  14.  
  15.   title = 'Report -' hcReportDescription
  16.   extra = 70 - LENGTH(title)
  17.   Call RxhcLineOut title || COPIES(' ', extra) || Date() || ' ' || Time()
  18.   Call RxhcLineOut 'For Server [' || hcServerURL || ']'
  19.   Call RxhcLineOut 'This report started from [' || hcDocumentRoot || ']'
  20.  
  21.   Call RxhcLineOut COPIES('-', 78)
  22.  
  23. RETURN
  24.